clear;
clc;
%% Setup
FileName    =   'Result_Baseline';
StdVec      =   [1 1 1 -1 -1 60]'*0.01/4;
PP          =   Setup_PP(struct('KAPPA',0.00/4,'XI',1/82.5/4,'Pir_SS',0.02/4,...
                                'Flag_dE',0,'Flag_Price',0,...
                                'B_Total_SS',0.91,'b_lb',-0.29,...
                                'TrProb_H',0.99,'Prob_H',0.35,...
                                'TrProb_ext',0.99,'Prob_ext',0.16,...
                                'Cons_FracT',0.3248,'Cons_FracH',0.60,...
                                'RHO_M_dom',0.68,'RHO_M_ext',0.81,'RHO_Y_H',0.95,...
                                'Taylor_Pi',1.1,'Taylor_ir',0.87,...
                                'Cons_ElasTN',6.19,'Cons_ElasHF',6.19));
Solver_Main(PP,StdVec,FileName);
